home *** CD-ROM | disk | FTP | other *** search
/ Cerilica Vantage Pre-Release / Cerilica Vantage Pre-Release - Disc 2.iso / vantag.arc / !DotGain_Procs < prev    next >
Encoding:
Text File  |  2001-07-06  |  807 b   |  38 lines
  1. %%BeginResource: procset Howsoft_DotGain 0.1 0
  2. %%Title: (Dot gain correction)
  3. %%Version: 0.1 0
  4. %%CreationDate: (9/17/96) ()        % (17-Sep-1996)
  5. %%Copyright: ((C) 1996 Howsoft All Rights Reserved)
  6. /HDGdict 6 dict def
  7. HDGdict begin
  8.  
  9. /HDGRange {                % <value> <low> <high> HDGRange
  10.     3 1 roll 2 copy lt {exch} if
  11.     pop 2 1 roll 2 copy gt {exch} if
  12.     pop
  13.     }bind def
  14.  
  15. /HDGGAM 1.0 def
  16. /HDGMAX 1.0 def
  17. /HDGMIN 0.0 def
  18.  
  19. /HDGTransfer {            % <highlight%> <shadow%> <gamma> HDGTransfer
  20.     /HDGGAM exch def
  21.     100.0 div /HDGMAX exch def
  22.     100.0 div /HDGMIN exch def
  23.     [ { dup dup 0 ne exch 1 ne
  24.         and { HDGdict begin
  25.           1.0 exch sub
  26.           HDGMAX HDGMIN sub mul
  27.           HDGMIN add
  28.           1.0 exch sub
  29.           HDGGAM exp
  30.           0 1 HDGRange
  31.           end
  32.         } if
  33.       } /exec load currenttransfer /exec load ] cvx settransfer
  34.     }bind def
  35.  
  36. end
  37. %%EndResource
  38.